@rff=1.2,type=rxmenu name="Make keyfile",rxstring="options results; GetField 'name'; name=result; GetField 'number'; number=result; GetField 'pass'; pass=result; if name=='' | number=='' | pass=='' then okay1 'You must fill all fields. You get correct values when you register.'; else do; okay2 'Ok to write keyfile to L:db.key ?'; if result == 1 then do; open('f', 'l:db.key','W'); WriteLn('f', name); WriteLn('f', number); WriteLn('f', pass); Close('f'); okay1 'Restart db. The Shareware reminder will be gone'; end; end;"
@RFF=1.1,TYPE=form,lnam="Note: Enter data EXAcTLY aS TyPEd",tabsize=4 NAME=Name,OFFS=0,SIZE=27,NEXT=nl NAME=Number,OFFS=1,SIZE=8,NEXT=nl NAME=Password,OFFS=2,SIZE=14,NEXT=para name="Make keyfile",ftyp=checkbox,autorxstring="options results; PutField 0; GetField 'name'; name=result; GetField 'number'; number=result; GetField 'pass'; pass=result; if name=='' | number=='' | pass=='' then okay1 'You must fill all fields. You get correct values when you register.'; else do; okay2 'Ok to write keyfile to L:db.key ?'; if result == 1 then do; open('f', 'l:db.key','W'); WriteLn('f', name); WriteLn('f', number); WriteLn('f', pass); Close('f'); okay1 'Restart db. The Shareware reminder will be gone'; end; end;"
